home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / qbrv1_2.zip / SAMPLE.BAS < prev    next >
BASIC Source File  |  1991-11-13  |  496b  |  17 lines
  1. 10 REM QBRENUM BASIC DEMO FILE
  2. 20 CHAIN "TEST",20,ALL,DELETE 60-90
  3.    DELETE 20-60: GOSUB 60: GOTO 60
  4. 40 REM $INCLUDE: 'SAMPLE2.BAS'
  5. 60 IF ERL = 60 THEN 90:ELSE 60
  6. 90 IF A<B+3 THEN 130:ELSE 150 
  7.    REM GOTO 20: RESTORE 20
  8. 130 FIELD #1, 12 AS NA$,_ 'NAME
  9.     20 AS AD$,_ 'STREET ADDRESS
  10.     20 AS CS$   'CITY-STATE-ZIP
  11. 140 ON ERROR GOTO 90 
  12. 150 ON n GOTO LAB1,160,10000
  13. 160 ON n GOSUB 10000: 'GOTO 150
  14. 230 RESUME 160: RETURN 150
  15. 10000: B = B + 1: PRINT C,B,Q
  16. LAB1: ON ERROR GOTO 0
  17.